; Musio of Silkworm (1988) (Tecmo)
; Ripped by Megachur the 24/11/2006

	write "SILKWORM.BIN"

music_date_rip	equ &18b6
music_adr	equ &10a2
first_theme	equ 1
last_theme	equ 1	; music 1 sounfx 2 -> 11 (l1111)

	read "music_header_v1_0.asm"
	
; play &1112
;#10a2
.l10a2
	ld e,a
	and #0f
	add a
	ld l,a
	ld h,#00
	ld a,e
	and #f0
	ld e,a
	ld d,#00
	add hl,de
	add hl,de
	ld de,l1766
	add hl,de
	ret
.l10b6
	ld hl,#0000
	ld a,#10
.l10bb
	ex af,af'
	sla c
	rl b
	adc hl,hl
	ld a,h
	cp d
	jp nz,l10c9
	ld a,l
	cp e
.l10c9
	jp c,l10cf
	sbc hl,de
	inc bc
.l10cf
	ex af,af'
	dec a
	jp nz,l10bb
	ret
.l10d5
	push bc
	push de
	ld hl,#0000
	ld a,#10
.l10dc
	srl d
	rr e
	jp nc,l10e4
	add hl,bc
.l10e4
	sla c
	rl b
	dec a
	jp nz,l10dc
	pop de
	pop bc
	ret
.l10ef
	push bc
	ld c,l
	ld a,h
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	pop bc
	ret
.l1111
	db #01
;
.play_music
;.l1112
;
	ld hl,l1111
	ld a,(hl)
	or a
	jp z,l1272
	cp #fe
	jp c,l112e
	cp #ff
	ret nz
	ld (hl),#fe
	ld hl,#073f
	ld a,l
	ld (l126c),a
	jp l10ef
.l112e
;
.init_music
;
	ld (l1268),a
	ld hl,l11cb
	ld de,l11cc
	ld bc,#0030
	ld (hl),#00
	ldir
	ld hl,l11ff
	ld de,l1200
	ld bc,#0030
	ld (hl),#00
	ldir
	ld hl,l1233
	ld de,l1234
	ld bc,#0030
	ld (hl),#00
	ldir
	xor a
	call l117c
	ld a,#01
	call l117c
	ld a,#02
	call l117c
	xor a
	ld (l1111),a
	ret
.l116b
	ld a,(l1268)
	ld (l1111),a
	ld a,(l1267)
	call l117c
	xor a
	ld (l1111),a
	ret
.l117c
	push af
	ld a,(l1111)
	dec a
	ld l,a
	ld h,#00
	add hl,hl
	ld d,h
	ld e,l
	add hl,hl
	add hl,de
	ld de,l185e
	add hl,de
	pop af
	or a
	jr z,l11ba
	dec a
	jr z,l11a8
	ld de,#0004
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (l1233),de
	ld de,l11ca
	ld (l1235),de
	ret
.l11a8
	inc hl
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (l11ff),de
	ld de,l11ca
	ld (l1201),de
	ret
.l11ba
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (l11cb),de
	ld de,l11ca
	ld (l11cd),de
	ret
.l11cd equ $ + 3
.l11cc equ $ + 2
.l11cb equ $ + 1
.l11ca
	db #ff,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l11e0 equ $ + 6
	db #00,#00,#00,#6e,#12,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1201 equ $ + 7
.l1200 equ $ + 6
.l11ff equ $ + 5
	db #00,#00,#01,#f7,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#6e
.l1214 equ $ + 2
	db #12,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#02,#ef
.l1235 equ $ + 3
.l1234 equ $ + 2
.l1233 equ $ + 1
	db #02,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1248 equ $ + 6
	db #00,#00,#00,#6e,#12,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1269 equ $ + 7
.l1268 equ $ + 6
.l1267 equ $ + 5
	db #00,#00,#04,#df,#04,#00,#00,#00
.l1271 equ $ + 7
.l1270 equ $ + 6
.l126d equ $ + 3
.l126c equ $ + 2
	db #00,#00,#00,#00,#ff,#00,#02,#02
.l1272
	ld hl,l1271
	dec (hl)
	jp p,l14b9
	xor a
	ld (l1267),a
	ld iy,l11cb
	call l12a3
	ld hl,l1267
	inc (hl)
	ld iy,l11ff
	call l12a3
	ld hl,l1267
	inc (hl)
	ld iy,l1233
	call l12a3
	ld a,(l1270)
	ld (l1271),a
	jp l14b9
.l12a3
	dec (iy+#05)
	ret p
.l12a7
	ld l,(iy+#02)
	ld h,(iy+#03)
	ld a,h
	and l
	cp #ff
	jr z,l12b9
	ld a,h
	or l
	jr nz,l12be
	jr l12e4
.l12b9
	call l116b
	jr l12a7
.l12be
	ld a,(hl)
	cp #ff
	jr nz,l12f0
	ld l,(iy+#00)
	ld h,(iy+#01)
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (iy+#00),l
	ld (iy+#01),h
	ld (iy+#02),e
	ld (iy+#03),d
	ex de,hl
	ld a,h
	and l
	cp #ff
	jr z,l12eb
	ld a,h
	or l
	jr nz,l12be
.l12e4
	ld a,(iy+#04)
	ld (iy+#05),a
	ret
.l12eb
	call l116b
	jr l12a7
.l12f0
	push hl
	pop ix
	inc hl
	ld (iy+#02),l
	ld (iy+#03),h
	push af
	and #f0
	rrca
	rrca
	rrca
	ld l,a
	ld h,#00
	ld de,l130d
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	pop af
	jp (hl)
.l130d
	dw l1448,l1448,l1448,l1448
	dw l1448,l1448,l1448,l1448
	dw l13a3,l13a3,l13a3,l13a3
	dw l133d,l133d,l1335,l132d
.l132d
	and #0f
	ld (l1270),a
	jp l12a7
.l1335
	and #0f
	ld (iy+#14),a
	jp l12a7
.l133d
	and #1f
	add a
	ld l,a
	ld h,#00
	ld de,l18a0
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	ld a,(hl)
	inc hl
	ld (iy+#0b),a
	or a
	jr z,l136b
	push hl
	ld (iy+#08),#00
	srl a
	ld e,a
	ld d,#00
	ld hl,l18ee
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (iy+#06),e
	ld (iy+#07),d
	pop hl
.l136b
	ld a,(hl)
	inc hl
	push hl
	srl a
	ld e,a
	ld d,#00
	ld hl,l18ba
	add hl,de
	ld a,(hl)
	ld (iy+#1c),a
	inc hl
	ld a,(hl)
	ld (iy+#1d),a
	pop hl
	ld a,(hl)
	inc hl
	ld (iy+#17),a
	ld a,(hl)
	inc hl
	ld (iy+#18),a
	ld a,(hl)
	inc hl
	ld (iy+#0c),a
	ld a,(hl)
	inc hl
	ld (iy+#0f),a
	ld (iy+#12),l
	ld (iy+#13),h
	inc hl
	ld a,(hl)
	ld (iy+#30),a
	jp l12a7
.l13a3
	and #3f
	ld (iy+#04),a
	jp l12a7
.l13ab
	ld l,(iy+#02)
	ld h,(iy+#03)
	inc hl
	inc hl
	inc hl
	ld (iy+#02),l
	ld (iy+#03),h
	xor a
	ld (iy+#2b),a
	ld (iy+#2a),#ff
	ld (iy+#16),a
	call l1490
	ld a,(ix+#01)
	ld (iy+#24),a
	ld e,(iy+#04)
	inc e
	ld d,#00
	ld a,(l1270)
	inc a
	ld c,a
	ld b,#00
	call l10d5
	ld e,(ix+#01)
	ld d,#00
	and a
	sbc hl,de
	ld (iy+#2c),l
	ld (iy+#2d),h
	push hl
	ld a,(iy+#04)
	ld (iy+#05),a
	ld a,(ix+#02)
	call l10a2
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (iy+#22),e
	ld (iy+#23),d
	push de
	ld a,(ix+#03)
	call l10a2
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (iy+#26),e
	ld (iy+#27),d
	ld a,#01
	ld (l126d),a
	pop hl
	ex de,hl
	and a
	sbc hl,de
	jr nc,l142a
	ld a,#ff
	ld (l126d),a
	ex de,hl
	ld hl,#0000
	and a
	sbc hl,de
.l142a
	ld b,h
	ld c,l
	pop de
	call l10b6
	ld (iy+#20),c
	ld (iy+#21),b
	ld a,(l126d)
	or a
	ret p
	ld hl,#0000
	and a
	sbc hl,bc
	ld (iy+#20),l
	ld (iy+#21),h
	ret
.l1448
	cp #7f
	jp z,l13ab
	or a
	ret z
	ld c,a
	ld a,(iy+#0b)
	or a
	jr z,l1460
	ld a,c
	ld (iy+#0a),a
	ld (iy+#08),#00
	jr l1480
.l1460
	ld a,c
	ld (iy+#28),a
	ld a,c
	and #70
	ld e,a
	ld d,#00
	ld a,c
	and #0f
	add a
	ld l,a
	ld h,#00
	add hl,de
	add hl,de
	ld de,l1766
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (iy+#2e),e
	ld (iy+#2f),d
.l1480
	xor a
	ld (iy+#2b),a
	ld (iy+#16),a
	ld (iy+#1b),a
	ld a,(iy+#04)
	ld (iy+#05),a
.l1490
	ld l,(iy+#1c)
	ld h,(iy+#1d)
	ld (iy+#19),l
	ld (iy+#1a),h
	ld l,(iy+#17)
	ld (iy+#11),l
	ld (iy+#0d),#00
	ld (iy+#0e),#01
	ld a,(iy+#0f)
	ld (iy+#10),a
	ld a,(iy+#30)
	ld (iy+#2b),a
	ret
.l14b7
	nop
	nop
.l14b9
	ld a,(l126c)
	or #38
	and #f8
	ld (l14b7),a
	ld iy,l11cb
	call l14fa
	ld iy,l11ff
	call l14fa
	ld iy,l1233
	call l14fa
	ld a,(l11e0)
	ld l,a
	ld h,#08
	call l10ef
	inc h
	ld a,(l1214)
	ld l,a
	call l10ef
	inc h
	ld a,(l1248)
	ld l,a
	call l10ef
	ld a,(l14b7)
	ld l,a
	ld h,#07
	jp l10ef
.l14fa
	ld l,(iy+#12)
	ld h,(iy+#13)
	ld e,(iy+#16)
	ld d,#00
	add hl,de
	inc hl
	ld a,(hl)
	dec hl
	cp #ff
	jr z,l1534
	ld a,(hl)
	or a
	jp m,l1518
	inc de
	ld (iy+#16),e
	jr l1534
.l1518
	ld a,(iy+#2b)
	or a
	jr z,l1523
	dec (iy+#2b)
	jr l1534
.l1523
	inc de
	inc de
	inc hl
	inc hl
	ld (iy+#16),e
	inc hl
	ld a,(hl)
	dec hl
	cp #ff
	jr z,l1534
	ld (iy+#2b),a
.l1534
	ld a,(hl)
	and #0f
	cp (iy+#14)
	jr c,l153f
	ld a,(iy+#14)
.l153f
	ld (iy+#15),a
	ld a,(iy+#11)
	or a
	jr z,l155c
	dec (iy+#11)
	ld a,(l14b7)
	and (iy+#32)
	ld (l14b7),a
	ld h,#06
	ld l,(iy+#18)
	call l10ef
.l155c
	ld a,(iy+#2e)
	ld (iy+#1e),a
	ld a,(iy+#2f)
	ld (iy+#1f),a
	ld a,(iy+#0b)
	or a
	jr z,l15ad
	jp m,l1598
	ld l,(iy+#06)
	ld h,(iy+#07)
	ld e,(iy+#08)
	ld d,#00
	add hl,de
	ld a,(hl)
	cp #80
	jr nz,l158a
	and a
	sbc hl,de
	xor a
	ld (iy+#08),a
	ld a,(hl)
.l158a
	inc (iy+#08)
	add (iy+#0a)
	ld h,#06
	ld l,a
	call l10ef
	jr l15a0
.l1598
	ld h,#06
	ld l,(iy+#0a)
	call l10ef
.l15a0
	ld a,(l14b7)
	or (iy+#31)
	and (iy+#32)
	ld (l14b7),a
	ret
.l15ad
	ld l,(iy+#19)
	ld h,(iy+#1a)
	ld a,h
	or l
	jp z,l16a8
	ld (l1269),hl
	ld e,(iy+#1b)
	ld d,#00
	add hl,de
	ld e,(hl)
	dec hl
	ld a,e
	cp #82
	jr z,l1623
	cp #81
	jr z,l15d4
	cp #80
	jp z,l165f
	jp l1667
.l15d4
	ld e,(hl)
	ld l,(iy+#28)
	ld a,e
	or a
	jp m,l15eb
	ld a,l
	add e
	ld l,a
	and #0f
	cp #0c
	jr c,l15f7
	inc l
	inc l
	inc l
	jr l15f7
.l15eb
	ld a,l
	add e
	ld l,a
	and #0f
	cp #0c
	jr c,l15f7
	dec l
	dec l
	dec l
.l15f7
	ld a,l
	and #70
	ld c,a
	ld b,#00
	ld a,l
	and #0f
	add a
	ld l,a
	ld h,#00
	add hl,bc
	add hl,bc
	ld de,l1766
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (iy+#1e),e
	ld (iy+#1f),d
	ld (iy+#2e),e
	ld (iy+#2f),d
	xor a
	ld (iy+#19),a
	ld (iy+#1a),a
	jp l16a8
.l1623
	ld (iy+#1b),#00
	ld e,(hl)
	ld l,(iy+#28)
	ld a,e
	or a
	jp m,l163e
	ld a,l
	add e
	ld l,a
	and #0f
	cp #0c
	jr c,l164a
	inc l
	inc l
	inc l
	jr l164a
.l163e
	ld a,l
	add e
	ld l,a
	and #0f
	cp #0c
	jr c,l164a
	dec l
	dec l
	dec l
.l164a
	ld (iy+#28),l
	ld hl,(l1269)
	ld e,(hl)
	ld a,(iy+#1e)
	ld (iy+#2e),a
	ld a,(iy+#1f)
	ld (iy+#2f),a
	jr l1667
.l165f
	ld (iy+#1b),#00
	ld hl,(l1269)
	ld e,(hl)
.l1667
	ld l,(iy+#28)
	ld a,e
	or a
	jp m,l167d
	ld a,l
	add e
	ld l,a
	and #0f
	cp #0c
	jr c,l1689
	inc l
	inc l
	inc l
	jr l1689
.l167d
	ld a,l
	add e
	ld l,a
	and #0f
	cp #0c
	jr c,l1689
	dec l
	dec l
	dec l
.l1689
	ld a,l
	and #70
	ld c,a
	ld b,#00
	ld a,l
	and #0f
	add a
	ld l,a
	ld h,#00
	add hl,bc
	add hl,bc
	ld de,l1766
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (iy+#1e),e
	ld (iy+#1f),d
	inc (iy+#1b)
.l16a8
	ld a,(iy+#2a)
	or a
	jr z,l16fc
	ld a,(iy+#24)
	or a
	jr z,l16bf
	dec (iy+#24)
	ld l,(iy+#22)
	ld h,(iy+#23)
	jr l16f6
.l16bf
	ld e,(iy+#20)
	ld d,(iy+#21)
	ld l,(iy+#22)
	ld h,(iy+#23)
	add hl,de
	ld (iy+#22),l
	ld (iy+#23),h
	push hl
	ld l,(iy+#2c)
	ld h,(iy+#2d)
	dec hl
	ld (iy+#2c),l
	ld (iy+#2d),h
	ld a,h
	pop hl
	or a
	jp p,l16f6
	ld l,(iy+#26)
	ld h,(iy+#27)
	ld (iy+#2e),l
	ld (iy+#2f),h
	ld (iy+#2a),#00
.l16f6
	ld (iy+#1e),l
	ld (iy+#1f),h
.l16fc
	ld a,(iy+#0c)
	or a
	jr z,l1752
	dec (iy+#10)
	jp p,l1739
	ld a,(iy+#0f)
	ld (iy+#10),a
	ld a,(iy+#0d)
	add (iy+#0e)
	ld (iy+#0d),a
	ld a,(iy+#0c)
	cp (iy+#0d)
	jr nz,l172a
	ld a,(iy+#0e)
	neg
	ld (iy+#0e),a
	ld a,(iy+#0c)
.l172a
	neg
	cp (iy+#0d)
	jr nz,l1739
	ld a,(iy+#0e)
	neg
	ld (iy+#0e),a
.l1739
	ld a,(iy+#0d)
	or a
	ld d,#00
	jp p,l1744
	ld d,#ff
.l1744
	ld e,a
	ld l,(iy+#1e)
	ld h,(iy+#1f)
	add hl,de
	ld (iy+#1e),l
	ld (iy+#1f),h
.l1752
	ld h,(iy+#33)
	ld l,(iy+#1e)
	call l10ef
	inc h
	ld l,(iy+#1f)
	jp l10ef
	db #00,#00,#00,#00
.l1766
	dw #0000,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0000,#0000,#0000,#0000
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #0000,#0000,#0000,#0000
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #0000,#0000,#0000,#0000
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #0000,#0000,#0000,#0000
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0000,#0000,#0000,#0000
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #0000,#0000,#0000,#0000
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #0000,#0000,#0000,#0000
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
.l185e
	dw l1a66,l1a8a,l1aae,l1ad2
	dw l1ad8,l1ade,l1ae4,l1b26
	dw l1b26,l1aea,l1b26,l1b26
	dw l1af0,l1b26,l1b26,l1af6
	dw l1b26,l1b26,l1afc,l1b26
	dw l1b26,l1b02,l1b26,l1b26
	dw l1b08,l1b26,l1b26,l1b0e
	dw l1b26,l1b26,l1b14,l1b1a
.l18a0 equ $ + 2
	dw l1b20,l1923,l1930,l1947
	dw l196d,l197c,l19a2,l19c8
	dw l19ee,l1a14,l1a1e,l1a2e
.l18ba equ $ + 4
	dw l1a36,l1a40,#0000
	dw l18ca,l18cc,l18d7,l18e2
	dw l18e6,l18e9,l18ec
.l18cc equ $ + 2
.l18ca
	db #fb,#82,#0a,#08,#06,#04,#02,#01
.l18d7 equ $ + 5
	db #00,#ff,#fe,#fd,#82,#f6,#f8,#fa
	db #fc,#fe,#ff,#00,#01,#02,#03,#82
.l18e9 equ $ + 7
.l18e6 equ $ + 4
.l18e2
	db #10,#10,#00,#81,#10,#00,#81,#00
.l18ee equ $ + 4
.l18ec equ $ + 2
	db #10,#80,#00,#10,#20,#82,#f8,#18
	db #00,#19,#02,#19,#20,#19,#1e,#19
	db #14,#0f,#0a,#05,#00,#80,#00,#80
	db #1d,#1c,#1b,#1a,#19,#18,#17,#16
	db #15,#14,#13,#12,#11,#10,#0f,#0e
	db #0d,#0c,#0b,#0a,#09,#08,#07,#06
	db #05,#04,#03,#02,#01,#80,#14,#1e
.l1923 equ $ + 1
	db #80,#00,#04,#01,#14,#00,#00,#0f
.l1930 equ $ + 6
	db #0f,#0f,#0f,#0f,#00,#ff,#04,#00
	db #01,#14,#00,#00,#0f,#0e,#0d,#0c
	db #0b,#0a,#09,#08,#07,#06,#05,#04
.l1947 equ $ + 5
	db #03,#02,#01,#00,#ff,#00,#10,#01
	db #03,#01,#02,#8f,#02,#8e,#05,#8d
	db #05,#8c,#05,#8b,#05,#8a,#05,#89
	db #05,#88,#05,#87,#05,#86,#05,#85
	db #05,#84,#05,#83,#05,#82,#05,#81
.l196d equ $ + 3
	db #05,#00,#ff,#00,#10,#01,#0a,#02
	db #00,#0f,#0f,#0f,#0f,#0f,#0a,#05
.l197c equ $ + 2
	db #00,#ff,#00,#14,#00,#00,#02,#00
	db #8f,#14,#8e,#14,#8d,#14,#8c,#14
	db #8b,#14,#8a,#14,#89,#14,#88,#14
	db #87,#14,#86,#14,#85,#14,#84,#14
	db #83,#14,#82,#14,#81,#14,#00,#ff
.l19a2
	db #00,#14,#00,#00,#02,#00,#8f,#14
	db #8e,#14,#8d,#14,#8c,#14,#8b,#14
	db #8a,#14,#89,#14,#88,#14,#87,#14
	db #86,#14,#85,#14,#84,#14,#83,#14
.l19c8 equ $ + 6
	db #82,#14,#81,#14,#00,#ff,#08,#00
	db #00,#00,#01,#04,#8f,#0a,#8e,#0a
	db #8d,#0a,#8c,#0a,#8b,#0a,#8a,#0a
	db #89,#0a,#88,#0a,#87,#0a,#86,#0a
	db #85,#0a,#84,#0a,#83,#0a,#82,#0a
.l19ee equ $ + 4
	db #81,#0a,#00,#ff,#08,#00,#00,#00
	db #01,#04,#8f,#03,#8e,#03,#8d,#03
	db #8c,#03,#8b,#03,#8a,#03,#89,#03
	db #88,#03,#87,#03,#86,#03,#85,#03
	db #84,#03,#83,#03,#82,#03,#81,#03
.l1a14 equ $ + 2
	db #00,#ff,#0c,#00,#00,#00,#00,#00
.l1a1e equ $ + 4
	db #8f,#1e,#00,#ff,#0c,#00,#00,#00
	db #00,#00,#0f,#0d,#0b,#09,#07,#05
.l1a2e equ $ + 4
	db #03,#01,#00,#ff,#00,#00,#00,#00
.l1a36 equ $ + 4
	db #00,#00,#00,#ff,#00,#1c,#00,#00
.l1a40 equ $ + 6
	db #02,#00,#8f,#ff,#00,#ff,#04,#00
	db #00,#00,#00,#00,#8f,#04,#8e,#04
	db #8d,#04,#8c,#04,#8b,#04,#8a,#04
	db #89,#04,#88,#04,#87,#04,#86,#04
	db #85,#04,#84,#04,#83,#04,#82,#04
.l1a66 equ $ + 4
	db #81,#04,#00,#ff,#80,#1b,#4a,#1e
	db #4a,#1e,#4a,#1e,#4a,#1e,#4a,#1e
	db #4a,#1e,#80,#1b,#4a,#1e,#4a,#1e
	db #0c,#1c,#4a,#1e,#4a,#1e,#4a,#1e
	db #4a,#1e,#4a,#1e,#85,#1b,#ff,#ff
.l1a8a
	db #80,#1b,#bc,#1e,#06,#1e,#bd,#1d
	db #bd,#1d,#37,#1d,#bd,#1d,#80,#1b
	db #bd,#1d,#bd,#1d,#5a,#1c,#bd,#1d
	db #06,#1e,#bd,#1d,#37,#1d,#bd,#1d
.l1aae equ $ + 4
	db #bf,#1b,#ff,#ff,#80,#1b,#c6,#1e
	db #46,#1e,#46,#1e,#a3,#1d,#79,#1d
	db #10,#1d,#80,#1b,#d9,#1c,#d9,#1c
	db #97,#1c,#d9,#1c,#46,#1e,#a3,#1d
	db #79,#1d,#10,#1d,#f4,#1b,#ff,#ff
.l1ad8 equ $ + 6
.l1ad2
	db #80,#1b,#2a,#1b,#00,#00,#80,#1b
.l1ade equ $ + 4
	db #2f,#1b,#00,#00,#80,#1b,#34,#1b
.l1ae4 equ $ + 2
	db #00,#00,#80,#1b,#39,#1b,#00,#00
.l1af0 equ $ + 6
.l1aea
	db #80,#1b,#3e,#1b,#00,#00,#80,#1b
.l1af6 equ $ + 4
	db #46,#1b,#00,#00,#80,#1b,#4b,#1b
.l1afc equ $ + 2
	db #00,#00,#80,#1b,#53,#1b,#00,#00
.l1b08 equ $ + 6
.l1b02
	db #80,#1b,#5b,#1b,#00,#00,#80,#1b
.l1b0e equ $ + 4
	db #60,#1b,#00,#00,#80,#1b,#65,#1b
.l1b14 equ $ + 2
	db #00,#00,#80,#1b,#71,#1b,#00,#00
.l1b20 equ $ + 6
.l1b1a
	db #80,#1b,#76,#1b,#00,#00,#80,#1b
.l1b26 equ $ + 4
	db #76,#1b,#00,#00,#83,#1b,#00,#00
	db #c6,#8f,#0a,#e0,#ff,#c6,#8f,#1e
	db #e0,#ff,#c6,#8f,#1e,#e0,#ff,#c7
	db #87,#01,#e0,#ff,#c3,#81,#7f,#00
	db #75,#70,#e0,#ff,#c8,#83,#1e,#e0
	db #ff,#c4,#81,#7f,#00,#40,#31,#e0
	db #ff,#c3,#85,#7f,#00,#10,#01,#e0
	db #ff,#c9,#80,#18,#e0,#ff,#cb,#83
	db #40,#e0,#ff,#c4,#80,#7f,#00,#30
	db #10,#7f,#00,#10,#30,#e0,#ff,#cc
	db #8f,#1e,#e0,#ff,#cc,#8f,#14,#e0
	db #ff,#c7,#8f,#1e,#e0,#ff,#f6,#ef
	db #ff,#e0,#ff,#c1,#80,#30,#30,#83
	db #30,#c0,#81,#30,#82,#30,#81,#30
	db #80,#30,#30,#30,#c1,#80,#30,#30
	db #83,#30,#c0,#81,#30,#87,#30,#c1
	db #80,#30,#30,#83,#30,#c0,#81,#30
	db #80,#30,#81,#30,#30,#80,#30,#30
	db #30,#c1,#80,#30,#30,#83,#30,#c0
	db #81,#30,#bf,#30,#ff,#c3,#80,#30
	db #30,#30,#30,#82,#30,#20,#81,#20
	db #83,#20,#80,#30,#30,#30,#30,#82
	db #30,#81,#20,#80,#20,#81,#20,#83
	db #20,#80,#30,#30,#30,#30,#82,#30
	db #81,#20,#80,#20,#81,#20,#83,#20
	db #80,#30,#30,#83,#30,#81,#20,#bf
	db #20,#ff,#c5,#8d,#30,#81,#33,#8d
	db #30,#81,#37,#87,#30,#82,#40,#37
	db #81,#30,#87,#7f,#00,#30,#10,#bf
	db #10,#ff,#c0,#83,#30,#c1,#81,#30
	db #c0,#30,#83,#30,#c1,#81,#30,#c0
	db #81,#30,#83,#30,#c1,#81,#30,#c0
	db #80,#30,#81,#30,#80,#30,#30,#30
	db #c1,#81,#30,#30,#c0,#81,#30,#c1
	db #80,#30,#c0,#81,#30,#80,#30,#c1
	db #81,#30,#c0,#81,#30,#30,#30,#30
	db #30,#c1,#80,#30,#c0,#81,#30,#80
	db #30,#c1,#30,#c0,#30,#81,#30,#c1
	db #30,#80,#30,#81,#30,#80,#30,#ff
	db #c3,#87,#20,#80,#30,#30,#81,#30
	db #80,#30,#81,#30,#80,#30,#81,#20
	db #85,#20,#80,#30,#30,#81,#30,#80
	db #30,#81,#30,#80,#30,#81,#1a,#85
	db #1a,#80,#2a,#2a,#81,#2a,#80,#2a
	db #81,#2a,#80,#2a,#15,#81,#15,#15
	db #80,#25,#25,#25,#25,#25,#25,#25
	db #25,#25,#25,#25,#ff,#c5,#85,#40
	db #81,#3a,#40,#3a,#37,#33,#85,#40
	db #81,#43,#40,#80,#47,#45,#43,#45
	db #43,#42,#3a,#42,#45,#3a,#42,#4a
	db #3a,#42,#3a,#42,#45,#3a,#42,#4a
	db #3a,#42,#82,#7f,#00,#45,#42,#7f
	db #00,#45,#42,#81,#7f,#00,#45,#42
	db #82,#7f,#00,#49,#50,#7f,#00,#49
	db #50,#81,#7f,#00,#49,#50,#ff,#c5
	db #80,#57,#50,#57,#50,#83,#7f,#00
	db #47,#4a,#4a,#81,#50,#47,#85,#40
	db #81,#3a,#87,#40,#80,#4a,#45,#4a
	db #45,#52,#4a,#45,#4a,#45,#4a,#45
	db #52,#55,#52,#81,#4a,#82,#7f,#00
	db #49,#45,#7f,#00,#49,#45,#81,#7f
	db #00,#49,#45,#87,#45,#ff,#c4,#85
	db #40,#80,#40,#40,#82,#40,#37,#81
	db #40,#85,#43,#80,#43,#43,#82,#43
	db #3a,#81,#43,#85,#45,#80,#45,#45
	db #82,#45,#45,#81,#45,#87,#7f,#00
	db #49,#45,#87,#45,#ff,#c3,#80,#1a
	db #81,#20,#20,#80,#20,#20,#20,#1a
	db #81,#20,#20,#80,#20,#20,#20,#c3
	db #80,#1a,#81,#20,#20,#80,#20,#20
	db #20,#1a,#81,#20,#20,#80,#20,#20
	db #20,#80,#18,#81,#1a,#1a,#80,#1a
	db #1a,#1a,#18,#81,#1a,#1a,#80,#1a
	db #1a,#1a,#82,#15,#15,#15,#80,#25
	db #25,#25,#25,#25,#25,#25,#ff,#c4
	db #89,#40,#81,#40,#3a,#3a,#89,#37
	db #81,#37,#3a,#3a,#80,#38,#86,#3a
	db #80,#38,#81,#3a,#80,#38,#81,#3a
	db #80,#38,#3a,#86,#35,#80,#80,#55
	db #50,#45,#50,#55,#50,#45,#50,#55
	db #ff,#c4,#89,#40,#81,#40,#3a,#3a
	db #89,#40,#81,#43,#43,#43,#89,#3a
	db #81,#3a,#3a,#3a,#87,#35,#7f,#00
	db #45,#40,#ff,#c3,#80,#1a,#20,#20
	db #20,#23,#20,#20,#20,#c3,#80,#1a
	db #20,#20,#20,#23,#20,#20,#20,#c3
	db #80,#1a,#20,#20,#20,#23,#20,#20
	db #20,#c3,#80,#1a,#20,#20,#20,#23
	db #20,#20,#20,#18,#1a,#1a,#1a,#21
	db #1a,#1a,#1a,#18,#1a,#1a,#1a,#21
	db #1a,#1a,#1a,#13,#15,#15,#15,#18
	db #15,#15,#15,#13,#15,#15,#15,#18
	db #15,#15,#15,#ff,#c3,#80,#1a,#82
	db #20,#80,#23,#82,#20,#80,#1a,#20
	db #1a,#20,#23,#82,#20,#80,#1a,#82
	db #20,#80,#23,#82,#20,#81,#1a,#1a
	db #83,#20,#80,#1a,#82,#20,#80,#23
	db #82,#20,#80,#1a,#1a,#1a,#1a,#23
	db #82,#20,#80,#1a,#82,#20,#80,#23
	db #82,#20,#80,#1a,#20,#20,#20,#23
	db #20,#20,#20,#ff,#ca,#bf,#20,#ff
	db #ee,#c0,#81,#30,#c1,#80,#30,#c0
	db #81,#30,#80,#30,#c1,#30,#c0,#30
	db #c0,#81,#30,#c1,#80,#30,#c0,#81
	db #30,#80,#30,#c1,#30,#c0,#30,#c0
	db #81,#30,#c1,#80,#30,#c0,#81,#30
	db #80,#30,#c1,#30,#c0,#30,#c0,#81
	db #30,#c1,#83,#30,#81,#30,#c0,#81
	db #30,#c1,#80,#30,#c0,#81,#30,#80
	db #30,#c1,#30,#c0,#30,#c0,#81,#30
	db #c1,#80,#30,#c0,#81,#30,#80,#30
	db #c1,#30,#c0,#30,#c0,#81,#30,#c1
	db #80,#30,#c0,#81,#30,#80,#30,#c1
	db #30,#c0,#30,#c0,#80,#30,#30,#c1
	db #30,#c0,#30,#30,#30,#c1,#30,#c0
	db #30,#ff,#ca,#b7,#20,#c3,#82,#20
	db #20,#81,#20,#ff,#ca,#bf,#20,#ff
	db #00,#00
;
.game_name
	db "Silkworm",0
.game_year
	db "1988",0
.game_publisher
	db "Tecmo",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
